home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / pc / planeten / internet / intersli.pin / PSInet HOST-DCS < prev    next >
Text File  |  1993-05-07  |  985b  |  73 lines
  1. !
  2. ! InterSLIP gateway script for PSInet HOST-DCS
  3. !
  4. @originate
  5. note "Waiting for prompt"
  6. matchclr
  7. matchstr 1 1 "Username: "
  8. matchread 50
  9. note "Gateway not responding!"
  10. exit -1
  11. !
  12. @label 1
  13. note "Sending user name"
  14. write "^5\13"
  15. matchclr
  16. matchstr 1 2 "Password:"
  17. matchread 50
  18. note "Gateway not responding!"
  19. exit -1
  20. !
  21. @label 2
  22. note "Sending password"
  23. write "^6\13"
  24. matchclr
  25. matchstr 1 4 ">"
  26. matchstr 2 3 "Access denied"
  27. matchread 120
  28. jump 99
  29. !
  30. @label 3
  31. note "Access Denied"
  32. jump 99
  33. !
  34. @label 99
  35. pause 1
  36. sound
  37. pause 60
  38. exit -1
  39. !
  40. @label 4
  41. note "Requesting SLIP"
  42. write "slip\13"
  43. matchclr
  44. matchstr 1 5 "Entering SLIP mode."
  45. matchread 120
  46. note "Cannot invoke SLIP mode"
  47. jump 99
  48. !
  49. @label 5
  50. matchclr
  51. matchexp 1 6 "[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\."
  52. matchread 120
  53. note "No IP address given"
  54. jump 99
  55. !
  56. @label 6
  57. setip "^0"
  58. matchclr
  59. matchexp 1 7 "[0-9][0-9]*"
  60. matchread 120
  61. note "No MTU value"
  62. jump 99
  63. !
  64. @label 7
  65. setmtu "^0"
  66. exit 0
  67. !
  68. ! currently unused:
  69. !
  70. @answer
  71. @hangup
  72. exit 0
  73.